home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Bus / H-L / Hypercard invoice Folder / summary / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-07-02  |  1.5 KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2854</cardID>
  8.     <listID>2214</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on OpenStackglobal s1,s2,s3,s4,s5global q1,q2,q3,q4,q5global d1,d2,d3,d4,d5global r1,r2,r3,r4,r5global invflgglobal ipjnm,ipjnoglobal icust,idate,inoglobal itl,iadd,icty,iprov,icodeglobal amount,taxcreate menu "summary"put "information,main menu" into menu "summary" with ¬¨menumsg "doInfo,doMain"if invflg = "yes" thendoMenu "New Card"put idate into bg field dateput icust into bg field custnoput ino into bg field 7put amount into bg field 14put tax into bg field 15put "no" into invflgend ifend openStackon closeStackreset menubarend closeStackon doInfoplay "boing"lock screenshow bg field "info"unlock screen with iris openwait until the mouseClicklock screenhide bg field "info"unlock screen with iris closeend doInfoon doMaingo to stack "inv_application"end doMainon CloseStackreset menubarend CloseStack</script>
  17.     <background id="2720" file="background_2720.xml" name="" />
  18.     <card id="2854" file="card_2854.xml" marked="false" name="" owner="2720" />
  19.     <card id="3799" file="card_3799.xml" marked="false" name="" owner="2720" />
  20. </stack>
  21.